0 GOSUB10:TI$="000000":P%=0:Y=0:X=0:DIMF%(9999)
1 FORX=0TOINT(19998^.5-3)/2:IFF%(X)THENNEXT:GOTO4
2 P%=2*X+3:FORY=(P%*P%-3)/2TO9999STEPP%:F%(Y)=1:NEXT
3 PRINT"[145]",P%,INT(TI/.6+.5)/100:NEXT
4 FORX=XTO9999:IFF%(X)THENNEXT:GOTO6
5 PRINT"[145]",2*X+3,INT(TI/.6+.5)/100:NEXT
6 PRINT" [201] LOOK FORWARD TO THE NEXT CHALLENGE!"
7 POKE 53270,200
8 END
9 :
10 PRINT CHR$(14)CHR$(8)CHR$(147):POKE 53280,11:POKE 53281,12:POKE 53270,195
11 PRINT "[155]   [162][188] [162][188]  [146][187][172]  [162][162][162] [162]  [146][187][172]  [162][162]"
12 PRINT "   [146][162][172] [146][162][172]      [146][162]       [146][162]"
13 PRINT "       [146][188][190]     [146][188][190]  "
14 PRINT "  [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
15 PRINT TAB(8)"[144][212][197][195][200][206][207]-[201][206][198][207] [195][200][193][204][204][197][206][199][197] 1"
16 PRINT TAB(9)"[208]RIME NUMBER ANALYSIS"9 :
17 PRINT TAB(8)"[212]HE 228 SECOND SOLUTION"
18 PRINT TAB(3)"[208]AUL [199]ANDER" TAB(24)"5 [205]ARCH 1991"
19 :
20 PRINT TAB(7)"[208]RESS ANY KEY TO COMMENCE"
21 POKE 198,0:WAIT 198,1:POKE 198,0
22 PRINT "[145][145]  [151][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
23 PRINT "  [221] [144][208]RIME:       [151][221] [221]        [144]SECONDS [151][221]"
24 PRINT "  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][155]"
29 RETURN